REPORT 
ZDEMO INTERCTIVE RPRTS BUTTONS 


NO STANDARD PAGE HEADING LINE-SIZE 150 
line-count 15(1). 


types : begin of tv lfal ," from vender master 
table(general section) 

lifnr type lifnr , " Account Number of Vendor or 
Creditor 

namel type namel gp, "name 

ortO1 type ort01_gp, "city 

land1 type land1_gp, " country key 

end of ty_lfal. 


types : begin of ty ekko, " Purchasing Document 
Header 

ebeln type ebeln, "Purchasing Document Number 

aedat type erdat, "Date on Which Record Was 
Created 

LIFNR TYPE LIFNR, 

end of ty_ekko. 


data : it_Ifal type table of tv Ifal, 
it_ekko type table of ty_ekko, 
wa lfal type tv lfal, 
wa_ekko type ty_ekko, 
v_lifnr type lifnr, 


V NAMEI TYPE NAME1 GP, 
IT SELECTED LFA1 TYPE TABLE OF TY LFA1, 
v_box(1) type c. 


select-options s lifnr for v_lifnr default 1 to 100. 


ES 


= START-OF-SELECTION a 


ES 


START-OF-SELECTION. 
select lifnr namel ortO1 landi from Ifal into table 
it lfal where lifnr in s lifnr. 


SET PF-STATUS 'ZSTATUS'. 


KKKKKKKKKKKKKKKKKKKKKKKKRRRAAR 


+ END-OF-SELECTION 7 


KKKKKKKKKKKKKKKKKKKKKRKRRRRLAMMkAR 


END-OF-SELECTION. 
perform displav data. 


sv-Isind = 0. 


ES 


* AT USER-COMMAND e 


ES 


AT USER-COMMAND. 
CASE SY-UCOMM. 


WHEN 'SEAL'. 

V BOX = 'X'. " CHECKED. 
PERFORM DISPLAY DATA. 
WHEN 'DSEAL.. 

V BOX = ''. "DESELECT 
PERFORM DISPLAY DATA. 
WHEN 'DOWN'. 

REFRESH IT SELECTED _LFA1. 
DATA V_LINES TYPE i. 
DESCRIBE LIST NUMBER OF LINES V_LINES. 
DO V_LINES TIMES. 


CLEAR WA_LFA1. 
READ LINE SY-INDEX FIELD VALUE V_BOX WA_LFA1- 
LIFNR. 


IFV BOX = 'X'. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT" 
EXPORTING 


INPUT = WA_LFA1-LIFNR 
IMPORTING 
OUTPUT = WA_LFA1-LIFNR 


READ TABLE IT_LFA1 INTO WA_LFA1 WITH KEY lifnr = 
WA_LFA1-LIFNR. 


IF SY-SUBRC = 0. 

APPEND WA LFAL TO IT SELECTED _LFA1. 
ENDIF. 

CLEAR : WA_LFA1, V_BOX. 

ENDIF. 

ENDDO. 


IF IT SELECTED _LFA1 IS NOT INITIAL. 
CALL METHOD 
CL GUI FRONTEND SERVICES-2GUI DOWNLOAD 
EXPORTING 
FILENAME — 'D:/BUTTON/BUTTON.TXT' 
write field separator = ' ' 
CHANGING 
DATA TAB = IT SELECTED LFAL. 


IF SY-SUBRC = 0. 

MESSAGE 'SUCCESSFUL DOWNLOADED' TYPE 'S'. " 
STATUS MESSAGE 

ENDIF. 


ELSE. 

MESSAGE NO DATA TO DOWNLOAD ' TYPE 'S'. " 
STATUS MESSAGE 

ENDIF. 


WHEN 'GETPOS'. 
PERFORM COLLECT SELECTED LINES. 


IF IT SELECTED LFA1 IS NOT INITIAL. 


SELECT EBELN AEDAT LIFNR INTO TABLE IT_EKKO 
FROM EKKO FOR ALL ENTRIES IN IT SELECTED LFAI 
WHERE LIFNR = IT SELECTED LFAL-LIFNR. 


IF IT EKKO IS NOT INITIAL. 

SORT IT_EKKO BY LIFNR EBELN. 

LOOP AT IT_EKKO INTO WA_EKKO. 

WRITE :/ SY-TABIX, WA_EKKO-EBELN, WA_EKKO-LIFNR, 
WA_EKKO-AEDAT. 

ENDLOOP. 

ELSE. 

WRITE :/ 'NO PURCHASE FOUND FROM VENDER'. 

ENDIF. 


ELSE. 

MESSAGE 'NO VENDER SELECTED FROM THE LIST ' 
TYPE 'S'. 

ENDIF. 

ENDCASE. 


ES 


ui top-of-page + 
ASS 


top-of-page. 
write :/5 'lifnr' color 1 ,20 'namel' color 4,50 'ort01' color 
6,85 'land1' color 7, 


115 sy-linct color 6. 


skip. 


FRR RR RR RR ORO RR RR RR RR RR ERK ERK KKK KK 


* TOP-OF-PAGE DURING LINE-SELECTION id 


FRR RR RR RR RR RR RR RR RR EK KK KKK KK 


TOP-OF-PAGE DURING LINE-SELECTION. 

CASE SY-LSIND. 

WHEN 1. 

write :/5 'TAB INDEX' color 1,18 'EBELN' color 4,22 
'LIFNR' color 6,37 'AEDAT' color 7, 

55 sv-linct color 6. 


ENDCASE. 
RR RI RI RI RI kok kok RR RR KKK 


+ END-of-page ü 


ES 


end-of-page. 
write :/'Page number', Sy-pagno color 2. 


ES 


* INITIALIZATION ij 


ES 


INITIALIZATION. 


CLEAR S LIFNR. 

S LIFNR-LOW = 110. 

S LIFNR-HIGH — 200. 

S LIFNR-SIGN =". 

S LIFNR-OPTION = 'BT”. 
APPEND S LIFNR TO S LIFNR[]. 


ES 


ui DISPLAY_DATA că 


ES 


FORM DISPLAY DATA. 

LOOP AT it Ifal into wa Ifal. 

write :/ V BOX AS CHECKBOX , wa Ifal-lifnr color 1 , 
wa_lfal-namel color 3, 

wa lfal-ortO1 color 5, wa_lfal-landl color 7. 

ENDLOOP. 


data v rem type i. 
v rem = sy-linct - sy-linno. 


skip v_rem. 


ENDFORM. 


ES 


* COLLECT SELECTED LINES 7 


ES 


FORM COLLECT SELECTED LINES. 
REFRESH IT_SELECTED_LFAI. 

DATA V_LINES TYPE I. 

DESCRIBE LIST NUMBER OF LINES V_LINES. 


DO V_LINES TIMES. 

CLEAR WA_LFA1. 

READ LINE SY-INDEX FIELD VALUE V_ BOX WA_LFA1- 
LIFNR. 


IF V_ BOX = 'X'. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT" 
EXPORTING 


INPUT = WA_LFA1-LIFNR 
IMPORTING 
OUTPUT = WA_LFA1-LIFNR 


READ TABLE IT_LFA1 INTO WA_LFA1 WITH KEY LIFNR = 
WA_LFA1-LIFNR. 


IF SY-SUBRC = 0. 
APPEND WA_LFA1 TO IT SELECTED LFA1. 


ENDIF. 
CLEAR : WA_LFA1, V_BOX. 


ENDIF. 
ENDDO. 
ENDFORM. 


